home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / DTJ911128.ARC / RUN-ME (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  353 b   |  11 lines
  1. 10 REM  DISPLAY READ-ME FILE...
  2. 20 POKE53280,0:POKE53281,0:PRINT"[147]";:D=PEEK(186):IFD<8THEND=8
  3. 30 OPEN1,D,15:OPEN8,D,8,"READ-ME":INPUT#1,E,E$
  4. 40 IFETHENCLOSE8:CLOSE1:PRINTE$:END
  5. 50 PRINT"[155]   [208]RESS [193][155] TO [193]BORT OR [211][208][193][195][197][155] TO PAUSE"
  6. 60 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  7. 70 GET#8,A$:PRINTA$;:S=ST:IFPEEK(198)=0ANDS=0THEN70
  8. 80 GETA$:IFA$=" "THENPOKE198,0:WAIT198,255:GETA$
  9. 90 IFA$="A"ORA$="[193]"ORS<>0THENCLOSE8:CLOSE1:END
  10. 100 GOTO70
  11.